home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Periodicals / develop / develop 3 code / Surf's Up! / Interfaces / PInterfaces / CRMSerialIntf.p < prev    next >
Encoding:
Text File  |  1989-11-17  |  1.0 KB  |  61 lines  |  [TEXT/MPS ]
  1. {
  2. Created Tuesday, May 10 1989 at 6:00 AM
  3.     CRMSerialIntf.p
  4.     Pascal Interface to the Communications Resource Manager Serial Device Utilities
  5.     
  6.     Copyright Apple Computer, Inc.     1988,1989
  7.     All rights reserved
  8. }
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT CRMSerialIntf;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingCRMSerialIntf}
  19. {$SETC UsingCRMSerialIntf := 1}
  20.  
  21. {$I+}
  22. {$SETC CRMSerialIntfIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24. {$IFC UNDEFINED UsingTypes}
  25. {$I $$Shell(PInterfaces)Types.p}
  26. {$ENDC}
  27.  
  28. {$SETC UsingIncludes := CRMSerialIntfIncludes}
  29.  
  30. CONST
  31.  { crmDeviceType}
  32.     crmSerialDevice        =    1;
  33.                     
  34.     curCRMSerRecVers     =     0;
  35.  
  36.  
  37. TYPE
  38.     CRMSerialPtr = ^CRMSerialRecord;
  39.     CRMSerialRecord = RECORD
  40.         version:             INTEGER;
  41.         
  42.         inputDriverName:     StringHandle;
  43.         outputDriverName:     StringHandle;
  44.         
  45.         name:                 StringHandle;
  46.         
  47.         deviceIcon:         Handle;
  48.         
  49.         ratedSpeed:         LONGINT;
  50.         maxSpeed:             LONGINT;
  51.         
  52.         reserved:             LONGINT;
  53.     END;
  54.  
  55. {$ENDC} {UsingCRMSerialIntf}
  56.  
  57. {$IFC NOT UsingIncludes}
  58.     END.
  59. {$ENDC}
  60.  
  61.